home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / newsgrp / group01b.txt / 000080_icon-group-sender_Tue Jul 3 13:50:40 2001.msg < prev    next >
Internet Message Format  |  2002-01-03  |  2KB
  1. Return-Path: <icon-group-sender>
  2. Received: (from root@localhost)
  3.     by baskerville.CS.Arizona.EDU (8.11.1/8.11.1) id f63KobY05483
  4.     for icon-group-addresses; Tue, 3 Jul 2001 13:50:37 -0700 (MST)
  5. Message-Id: <200107032050.f63KobY05483@baskerville.CS.Arizona.EDU>
  6. From: Maria Koutsikou <mk@sys.uea.ac.uk>
  7. X-Newsgroups: comp.lang.icon
  8. Subject: Why is this an invalid expression????
  9. Date: Tue, 03 Jul 2001 11:35:23 +0100
  10. X-Complaints-To: news@uea.ac.uk
  11. X-Accept-Language: en
  12. To: icon-group@cs.arizona.edu
  13. Errors-To: icon-group-errors@cs.arizona.edu
  14. Status: RO
  15. Content-Length: 1201
  16.  
  17. I was typing out the following procedure, to call in the main procedure,
  18. but when I compiled it, I  got an error message saying : "end" : invalid
  19. expression (indicating the line where the following procedure ends).
  20. Since when is an "end" at the end of a procedure an invalid expression?
  21. Can anyone tell me what I'm doing wrong?
  22.  
  23.  
  24. procedure ivs(j, k, m)
  25.     
  26.     numbers := [1, 2, 3, 4, 5, -3, -15]
  27.     lista := []
  28.     listb := []
  29.     listc := []
  30.     listd := []
  31.     inv := []
  32.     n := (*numbers)
  33.     i := 1
  34.         every  i := 1 to j-1 do {
  35.             temp := write(numbers[i])
  36.             put(lista,temp)
  37.             i +:= 1
  38.             every write(!lista)
  39.         {
  40.     
  41.         every i := k+1 to m do {
  42.             tempb := write(numbers[i])
  43.             put(listb,tempb)
  44.             i +:= 1
  45.             every write(!listb)
  46.         }
  47.  
  48.         every i := j+1 to k  do {
  49.             tempc := write(numbers[i])
  50.             put(listc,tempc)
  51.             i +:=1
  52.             every write(!listc)
  53.         }
  54.  
  55.         every i := m+1 to n  do{
  56.             tempd := write(numbers[i])
  57.             put(listd,tempd)
  58.             i +:=1
  59.             every write(!listd)
  60.         }
  61.  
  62.         j := (*listc - 1)
  63.         while (i >=1) do {
  64.             put(inv,listc[j])
  65.             j -:= 1
  66.         }
  67.         
  68.         
  69.         invsft := lista ||| listb ||| inv ||| listd
  70.         return invsft
  71.  
  72. end
  73.  
  74.  
  75. -- 
  76. Maria Koutsikou
  77. University of East Anglia
  78. School of Information Systems
  79. Bioinformatics Lab
  80. Ext. 2602
  81.